home *** CD-ROM | disk | FTP | other *** search
/ PC World 2002 March / PCWorld_2002-03_cd.bin / Software / TemaCD / xteq / setup.exe / {app} / plugins / XQ Show on Desktop.xpl < prev    next >
Text File  |  2001-02-10  |  2KB  |  78 lines
  1. "FILE"="Xteq Systems X-Setup Plugin 5.0"
  2. "TYPE"="6"
  3. "COUNT"="4"
  4. "UIPATH"="Appearance\Desktop\Icons\Visible Icons"
  5. "NAME"="Icons #1"
  6. "LANGUAGE"="VBScript"
  7. "VERSION"="2.04"
  8. "TEXT 1"="Recycle Bin"
  9. "TEXT 2"="Printer"
  10. "TEXT 3"="Control Panel"
  11. "TEXT 4"="Scheduled Tasks"
  12. "DESCRIPTION 1"="To show an item on the desktop, activate it. To hide it, deactivate it."
  13. "DESCRIPTION 2"="In order to activate the changes, it may be necessary to refresh the Desktop or to press the F5 Key."
  14. "AUTHOR"="Xteq Systems"
  15. "CONTACTURL"="http://www.xteq.com"
  16. "COPYRIGHT"="Copyright ⌐ Xteq Systems - All Rights Reserved"
  17. "COMMENT 1"=" "
  18. "COMMENT 2"="Thanks to Siegfried Burgstedt for his fix!"
  19. "COMMENT 3"=" "
  20. "COMMENT 4"="from lockergnome.com:
  21. "COMMENT 5"="Adam Rao <adam_rao@hotmail.com>: What exactly is a "Recyle Bin"? :)"
  22. "COMMENT 6"="Pierre Szwarc <szwarc@usa.net>: Its an invisible Recycle Bin (you don't 'C' it) <G>"
  23.  
  24.  
  25.  
  26.  
  27. '******************************************************************
  28. '***                MASTER TEMPLATE (1 of X)                   ****
  29. '******************************************************************
  30. sVals=Array("{645FF040-5081-101B-9F08-00AA002F954E}","{2227A280-3AEA-1069-A2DE-08002B30309D}","{21EC2020-3AEA-1069-A2DD-08002B30309D}","{D6277990-4C6A-11CF-8D87-00AA0060F5BF}")
  31. '******************************************************************
  32. '*** Keep an eye on the order (must be the same as "TEXT x") ! ****
  33. '******************************************************************
  34. sPath="HKLM\Software\Microsoft\Windows\CurrentVersion\Explorer\Desktop\NameSpace\"
  35.  
  36.  
  37.  
  38. Sub Plugin_Initialize 
  39.  for i=0 to GetUIElementsCount-1
  40.      s=sPath & sVals(i)
  41.  
  42.      if RegPathExists(s) then SetUIElement i+1,true
  43.  next 
  44. End Sub
  45.  
  46. Sub Plugin_CheckData(ElementIndex)
  47. End Sub
  48.  
  49. Sub Plugin_Apply(ElementIndex,ElementSubIndex)
  50.  for i=0 to GetUIElementsCount-1
  51.      b=GetUIElement(i+1)
  52.      s=sPath & sVals(i)
  53.  
  54.      if b=true then
  55.         Call RegWriteValue(s & "\@","",1)
  56.      else
  57.  
  58.         if RegPathExists(s) then
  59.            if RegValueExists(s & "\Removal Message") then
  60.               Call RegDeleteValue(s & "\Removal Message")
  61.            end if
  62.            
  63.            'finally delete the path 
  64.            Call RegDeletePath(s)
  65.        end if
  66.      end if
  67.  next 
  68.  
  69.  Call IndicateSettingChange()
  70. End Sub
  71.  
  72.  
  73. Sub Plugin_Terminate 
  74. End Sub
  75.  
  76.  
  77.  
  78.